trump approval rating – time series

Abstract

Put out a timeseries graph via ggplot2plotly

library(tidyverse)  # dplyr, part of tidyverse,  has spread() & gather() 
library(plotly)

Data from fiveThirtyEight.com

• approval ratings
• topline

trump <- read_csv("https://projects.fivethirtyeight.com/trump-approval-data/approval_topline.csv", 
                  col_types = cols(modeldate = col_date(format = "%m/%d/%Y"), 
                                   timestamp = col_datetime(format = "%H:%M:%S %d %b %Y ")))
trump

Munge data

allpolls <- trump %>% 
  filter(subgroup == "All polls")
allpolls

ggplot

ts_4_ggpltly <- ggplot(allpolls, aes(x = modeldate)) +
  geom_line(aes(y = approve_estimate), color = "forestgreen") +
  geom_line(aes(y = disapprove_estimate), color = "firebrick")
ts_4_ggpltly

ggplotly(ts_4_ggpltly)

# Example from tk_ts documentation
data_tbl <- tibble::tibble(
    date = seq.Date(as.Date("2016-01-01"), by = 1, length.out = 5),
    x    = rep("chr values", 5),
    y    = cumsum(1:5),
    z    = cumsum(11:15) * rnorm(1))

data_tbl

tk_ts(data_tbl, start = 2016)

# Working but the x axis is bonk
ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  tk_ts(start = 20170201) 

ap_4_dy <- allpolls %>% 
  select(modeldate, approve_estimate, disapprove_estimate) %>% 
  #tk_ts()
  tk_ts(start = 2017, freq = 365) 

ap_4_dy

#idx <- tk_index(allpolls)

This is what was working, even with the bonk x axis
ap_4_dy %>% 
  dygraph() %>% 
  dyRangeSelector(dateWindow = c("2017-02-01", "2018-11-30"))

# from dygraph documentation
class(mdeaths)
head(mdeaths)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

sessioninfo::session_info()

- Session info --------------------------------------

- Packages ------------------------------------------
 package       * version date       lib source        
 assertthat      0.2.0   2017-04-11 [1] CRAN (R 3.5.1)
 backports       1.1.3   2018-12-14 [1] CRAN (R 3.5.2)
 base64enc       0.1-3   2015-07-28 [1] CRAN (R 3.5.0)
 bindr           0.1.1   2018-03-13 [1] CRAN (R 3.5.1)
 bindrcpp      * 0.2.2   2018-03-29 [1] CRAN (R 3.5.1)
 broom           0.5.1   2018-12-05 [1] CRAN (R 3.5.2)
 callr           3.1.1   2018-12-21 [1] CRAN (R 3.5.2)
 cellranger      1.1.0   2016-07-27 [1] CRAN (R 3.5.1)
 class           7.3-14  2015-08-30 [2] CRAN (R 3.5.2)
 classInt        0.3-1   2018-12-18 [1] CRAN (R 3.5.2)
 cli             1.0.1   2018-09-25 [1] CRAN (R 3.5.1)
 codetools       0.2-15  2016-10-05 [2] CRAN (R 3.5.2)
 colorspace      1.3-2   2016-12-14 [1] CRAN (R 3.5.2)
 crayon          1.3.4   2017-09-16 [1] CRAN (R 3.5.1)
 crosstalk     * 1.0.0   2016-12-21 [1] CRAN (R 3.5.1)
 curl            3.3     2019-01-10 [1] CRAN (R 3.5.2)
 data.table      1.11.8  2018-09-30 [1] CRAN (R 3.5.2)
 DBI             1.0.0   2018-05-02 [1] CRAN (R 3.5.1)
 desc            1.2.0   2018-05-01 [1] CRAN (R 3.5.1)
 devtools      * 2.0.1   2018-10-26 [1] CRAN (R 3.5.2)
 digest          0.6.18  2018-10-10 [1] CRAN (R 3.5.1)
 dplyr         * 0.7.8   2018-11-10 [1] CRAN (R 3.5.1)
 DT            * 0.5     2018-11-05 [1] CRAN (R 3.5.1)
 e1071           1.7-0   2018-07-28 [1] CRAN (R 3.5.1)
 evaluate        0.12    2018-10-09 [1] CRAN (R 3.5.1)
 flexdashboard * 0.5.1.1 2018-06-29 [1] CRAN (R 3.5.2)
 forcats       * 0.3.0   2018-02-19 [1] CRAN (R 3.5.1)
 fs              1.2.6   2018-08-23 [1] CRAN (R 3.5.1)
 generics        0.0.2   2018-11-29 [1] CRAN (R 3.5.2)
 ggplot2       * 3.1.0   2018-10-25 [1] CRAN (R 3.5.1)
 glue            1.3.0   2018-07-17 [1] CRAN (R 3.5.1)
 gtable          0.2.0   2016-02-26 [1] CRAN (R 3.5.1)
 haven           2.0.0   2018-11-22 [1] CRAN (R 3.5.1)
 hms             0.4.2   2018-03-10 [1] CRAN (R 3.5.1)
 htmltools       0.3.6   2017-04-28 [1] CRAN (R 3.5.1)
 htmlwidgets     1.3     2018-09-30 [1] CRAN (R 3.5.1)
 httpuv          1.4.5.1 2018-12-18 [1] CRAN (R 3.5.2)
 httr            1.4.0   2018-12-11 [1] CRAN (R 3.5.2)
 jsonlite        1.6     2018-12-07 [1] CRAN (R 3.5.2)
 knitr           1.21    2018-12-10 [1] CRAN (R 3.5.2)
 labeling        0.3     2014-08-23 [1] CRAN (R 3.5.0)
 later           0.7.5   2018-09-18 [1] CRAN (R 3.5.1)
 lattice         0.20-38 2018-11-04 [2] CRAN (R 3.5.2)
 lazyeval        0.2.1   2017-10-29 [1] CRAN (R 3.5.1)
 leaflet         2.0.2   2018-08-27 [1] CRAN (R 3.5.1)
 lubridate       1.7.4   2018-04-11 [1] CRAN (R 3.5.1)
 magrittr        1.5     2014-11-22 [1] CRAN (R 3.5.1)
 mapview       * 2.6.3   2018-12-19 [1] CRAN (R 3.5.2)
 memoise         1.1.0   2017-04-21 [1] CRAN (R 3.5.1)
 mime            0.6     2018-10-05 [1] CRAN (R 3.5.1)
 modelr          0.1.2   2018-05-11 [1] CRAN (R 3.5.1)
 munsell         0.5.0   2018-06-12 [1] CRAN (R 3.5.1)
 nlme            3.1-137 2018-04-07 [2] CRAN (R 3.5.2)
 pillar          1.3.1   2018-12-15 [1] CRAN (R 3.5.2)
 pkgbuild        1.0.2   2018-10-16 [1] CRAN (R 3.5.1)
 pkgconfig       2.0.2   2018-08-16 [1] CRAN (R 3.5.1)
 pkgload         1.0.2   2018-10-29 [1] CRAN (R 3.5.1)
 plotly        * 4.8.0   2018-07-20 [1] CRAN (R 3.5.1)
 plyr            1.8.4   2016-06-08 [1] CRAN (R 3.5.1)
 png             0.1-7   2013-12-03 [1] CRAN (R 3.5.0)
 prettyunits     1.0.2   2015-07-13 [1] CRAN (R 3.5.1)
 processx        3.2.1   2018-12-05 [1] CRAN (R 3.5.2)
 promises        1.0.1   2018-04-13 [1] CRAN (R 3.5.1)
 ps              1.3.0   2018-12-21 [1] CRAN (R 3.5.2)
 purrr         * 0.2.5   2018-05-29 [1] CRAN (R 3.5.1)
 R6              2.3.0   2018-10-04 [1] CRAN (R 3.5.1)
 raster          2.8-4   2018-11-03 [1] CRAN (R 3.5.1)
 RColorBrewer    1.1-2   2014-12-07 [1] CRAN (R 3.5.0)
 Rcpp            1.0.0   2018-11-07 [1] CRAN (R 3.5.1)
 readr         * 1.3.1   2018-12-21 [1] CRAN (R 3.5.2)
 readxl          1.2.0   2018-12-19 [1] CRAN (R 3.5.2)
 remotes         2.0.2   2018-10-30 [1] CRAN (R 3.5.1)
 rlang           0.3.1   2019-01-08 [1] CRAN (R 3.5.2)
 rmarkdown       1.11    2018-12-08 [1] CRAN (R 3.5.2)
 rprojroot       1.3-2   2018-01-03 [1] CRAN (R 3.5.1)
 rstudioapi      0.9.0   2019-01-09 [1] CRAN (R 3.5.2)
 rvest           0.3.2   2016-06-17 [1] CRAN (R 3.5.1)
 satellite       1.0.1   2017-10-18 [1] CRAN (R 3.5.1)
 scales          1.0.0   2018-08-09 [1] CRAN (R 3.5.1)
 sessioninfo     1.1.1   2018-11-05 [1] CRAN (R 3.5.1)
 sf              0.7-2   2018-12-20 [1] CRAN (R 3.5.2)
 shiny           1.2.0   2018-11-02 [1] CRAN (R 3.5.1)
 sp              1.3-1   2018-06-05 [1] CRAN (R 3.5.1)
 stringi         1.2.4   2018-07-20 [1] CRAN (R 3.5.1)
 stringr       * 1.3.1   2018-05-10 [1] CRAN (R 3.5.1)
 tibble        * 2.0.1   2019-01-12 [1] CRAN (R 3.5.2)
 tidyr         * 0.8.2   2018-10-28 [1] CRAN (R 3.5.1)
 tidyselect      0.2.5   2018-10-11 [1] CRAN (R 3.5.1)
 tidyverse     * 1.2.1   2017-11-14 [1] CRAN (R 3.5.2)
 units           0.6-2   2018-12-05 [1] CRAN (R 3.5.2)
 usethis       * 1.4.0   2018-08-14 [1] CRAN (R 3.5.1)
 viridisLite     0.3.0   2018-02-01 [1] CRAN (R 3.5.1)
 webshot         0.5.1   2018-09-28 [1] CRAN (R 3.5.1)
 withr           2.1.2   2018-03-15 [1] CRAN (R 3.5.1)
 xfun            0.4     2018-10-23 [1] CRAN (R 3.5.1)
 xml2            1.2.0   2018-01-24 [1] CRAN (R 3.5.1)
 xtable          1.8-3   2018-08-29 [1] CRAN (R 3.5.1)
 yaml            2.2.0   2018-07-25 [1] CRAN (R 3.5.1)

[1] C:/Users/jrl/Documents/R/win-library/3.5
[2] C:/Program Files/R/R-3.5.2/library